Sub Ʈμ()

    Dim Ʈ As Worksheet
    Dim  As Integer
    
    Application.ScreenUpdating = False
    
        For Each Ʈ In ThisWorkbook.Worksheets
            
            With Ʈ
                
                If .Visible <> True Then
                     = .Visible
                    .Visible = True
                    .PrintOut
                    .Visible = 
                End If
            
            End With
        
        Next
    
    Application.ScreenUpdating = True
    
End Sub